home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Invenzioni & Inventori
/
Invenzioni and Inventori (Eclectica Publishing) (1996).ISO
/
invenzio
/
tori
/
sharedi.cst
/
03081_Script_3081
< prev
next >
Wrap
Text File
|
1983-01-27
|
603b
|
23 lines
ON ARCHIVIO_AUDIO
GLOBAL LISTA, TIPO, NOME, MATERIALE,utente,var_dll,videocast,sprit,soundfile
set tipo to "Sound"
SET MATERIALE= soundfile
set videocast to 0
global mywindow
if objectp(mywindow) then forget mywindow
if the machinetype = 256 then
set ttt=char 1 to 2 of the pathName&"\INVENZIO\NOME.DIR"
else
set ttt="INVENZIONI:INVENZIO:NOME.DIR"
end if
set mywindow to window "RACCOLTA"
SET THE FILENAME OF MYWINDOW TO TTT
set the titlevisible of mywindow to true
set the windowType of window ttt to 0
open mywindow
end if
end